#!/usr/bin/perl

open FILE, "all_music_themes";

while (<FILE>) {
    chomp;
    /theme\/(.*)/;
    $theme = $1;
    $url = "http://allmusic.com/explore/theme/$theme/songs";
    system("wget $url -O all_music_theme_pages/$theme");
}
